home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / jbcalc10 / jbrip0.prg < prev    next >
Text File  |  1988-01-16  |  787b  |  27 lines
  1. * JBRIP0.PRG
  2. PARAMETERS JBBCURR
  3. STORE JBBCURR - INT(JBBCURR) TO JBREMAIN
  4. *
  5. IF INT(JBBCURR)<0
  6.      STORE -1 * JBREMAIN TO JBREMAIN
  7. ENDIF
  8. *
  9. IF JBREMAIN > 0.000000001 .OR. JBREMAIN < -0.000000001
  10.      STORE TRIM(STR(JBREMAIN,9,7)) TO JBREMAIN
  11.      STORE LEN(JBREMAIN) TO JBLENGTH
  12.      IF AT('0',JBREMAIN) <> 0
  13.           FOR JBI = 1 TO 20
  14.                IF SUBSTR(JBREMAIN,JBLENGTH,1) = "0"
  15.                     STORE SUBSTR(JBREMAIN,1,JBLENGTH-1) TO JBREMAIN
  16.                     STORE JBLENGTH-1 TO JBLENGTH
  17.                ELSE
  18.                     STORE 20 TO JBI
  19.                ENDIF
  20.           NEXT JBI
  21.      ENDIF
  22.      STORE LTRIM(TRIM(STR(INT(JBBCURR),18)))+SUBSTR(JBREMAIN,2) TO JBBCURR
  23. ELSE
  24.      STORE LTRIM(TRIM(STR(INT(JBBCURR),18))) TO JBBCURR
  25. ENDIF
  26. RETURN
  27.